proc DC_10005 { req } {
	global dbConnection
	puts "in DC_10005:req=$req"
	list_to_array $req r_array
	set account 		$r_array(Login_Account)
	set passwd		$r_array(Login_Passwd)
	set cust_name 		$r_array(Cust_Name)
	set cust_addr 		$r_array(Cust_Addr)
	set corporation  $r_array(Corpration)
	set industry     $r_array(Industry) 
	set sub_industry $r_array(Sub_Industry)
	puts "1111111111111111111"
	set scale_staff  $r_array(Scale_Staff)
	set scale_car    $r_array(Scale_Car) 
	set cust_kind    $r_array(Cust_Kind) 
	set cert_type    $r_array(Cert_Type)
	puts "1111111111111111112"
	set cert_num     $r_array(Cert_Num)
	set contact      $r_array(Contact) 
	set contact_mobile $r_array(Contact_Mobile) 
	set tel		 $r_array(Tel)
	puts "1111111111111111113"

	
	set sql "update lbs_customer set cust_name ='$cust_name' ,address='$cust_addr', industry='$industry',sub_industry='$sub_industry',scale_staff='$scale_staff',scale_car='$scale_car',cust_kind='$cust_kind',cert_type='$cert_type',cert_num='$cert_num',contact='$contact', contact_mobile='$contact_mobile',pstn='$tel' where login_account='$account' and login_password='$passwd'"
	puts $sql
        set handle $dbConnection
        puts "handle:$handle"
        set result [::mysql::exec $handle $sql ]
	return "{{00000}}"
}
